===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-17-93 (12:50)             Number: 47
From: CORIDON HENSHAW              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: (6) Assorted text scrolli      Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 6.

END IF

MaxEntrys = Y

EXIT FUNCTION

UpdateTag:
EVENT OFF
StartBuffer = BaseLine
FOR X = StartLine TO EndLine
        IF X <> BarLine THEN COLOR FG, BG
        IF X = BarLine THEN COLOR BFG, BBG
        LOCATE X, StartCol
        PRINT TextBuffer(StartBuffer) + STRING$(SCRNWidth -_
 LEN(TextBuffer(StartBuffer)), " ");

        IF TaggedEntrys((BaseLine + X - 1)) = 1 THEN
            LOCATE X, EndCol
            PRINT CHR$(17);
        ELSEIF TaggedEntrys((BaseLine + X - 1)) = 2 THEN
            LOCATE X, EndCol
            PRINT " ";
            TaggedEntrys((BaseLine + X - 1)) = 0
        END IF

        StartBuffer = StartBuffer + 1
NEXT
StartBuffer = 0
EVENT ON
RETURN

END FUNCTION


=====================================>SNIP<=================================

--- GEcho 1.00
 * Origin: TCS Concordia - Mail Only - Toronto, Ontario (1:250/820)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20